home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / RTANKEXE.ZIP / TS.TXT < prev    next >
Encoding:
Text File  |  1989-03-01  |  336 b   |  36 lines
  1. select 5
  2. make dist
  3.  
  4. :align
  5. gleft
  6. jeq ctdir,cgdir,:start
  7. goto :align
  8.  
  9. :start
  10. lock 1
  11.  
  12. :again
  13. scope dist
  14. jeq   ctdir,dist,:attack
  15. face  dist
  16. goto :again
  17.  
  18. :attack
  19. fire
  20. move
  21. jeq  blockage,1,:stuck
  22. goto :again
  23.  
  24. :stuck
  25. auto 1
  26. right
  27. right
  28.  
  29. set dist,10
  30. :wait
  31. add dist,-1
  32. jneq dist,0,:wait
  33.  
  34. auto 0
  35. goto :again
  36.